Hi, Can anyone please let me knowhow to resolve error 94 in the following code:
Code:
Private Sub Form_Current()
Dim strTime As String
Dim strHour As String
Dim strMinute As String
If (CollectionTime.Value) = "" Then
MsgBox CollectionTime
Me.Hour = ""
Me.Minute = ""
Else
strTime = Me.CollectionTime
Dim intcolon As Integer
intcolon = InStr(strTime, ":")
strHour = Left$(strTime, intcolon - 1)
strMinute = Right$(strTime, Len(strTime) - intcolon)
Me.Hour = strHour
Me.Minute = strMinute
End If
End Sub