Ya esta solucionado usando if. Muchas gracias por la ayuda!
Text1.Select(ze, 1)
ze = ze + 1
cont = (Text1.SelectedText)
If cont = "h" Then
Text1.Select(ze, 1)
ze = ze + 1
cont = (Text1.SelectedText)
If cont = "t" Then
Text1.Select(ze, 1)
ze = ze + 1
cont = (Text1.SelectedText)
If cont = "t" Then
Text1.Select(ze, 1)
ze = ze + 1
cont = (Text1.SelectedText)
If cont = "p" Then
Text1.Select(ze, 1)
ze = ze + 1
cont = (Text1.SelectedText)
If cont = ":" Then
Text1.Select(ze, 1)
ze = ze + 1
cont = (Text1.SelectedText)
If cont = "/" Then
Text1.Select(ze, 1)
ze = ze + 1
cont = (Text1.SelectedText)
If cont = "/" Then
For i = 0 To 53
Text1.Select(ze, 1)
ze = ze + 1
temp = (Text1.SelectedText)
dir = dir + temp
If i = 53 Then
fox.Navigate(dir)
dir = ""
Timer1.Enabled = False
Timer3.Enabled = True
End If
Next
End If
End If
End If
End If
End If
End If
End If