Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations sizbut on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Characters in Text Box....
- Thread starter dodgyone
- Start date
harmmeijer
Programmer
If the text box is called text1 you can use the following:
If Text1.Text <> "" Then
If Len(Text1.Text) > 3 Then
Text1.Text = Mid(Text1.Text, 1, 3)
End If
If Mid(Text1.Text, (Len(Text1.Text)), 1) = "\" Then
Text1.Text = Mid(Text1.Text, 1, (Len(Text1.Text) - 1))
End If
End If
If you try to fill out \\\\ you wil get an error.
If Text1.Text <> "" Then
If Len(Text1.Text) > 3 Then
Text1.Text = Mid(Text1.Text, 1, 3)
End If
If Mid(Text1.Text, (Len(Text1.Text)), 1) = "\" Then
Text1.Text = Mid(Text1.Text, 1, (Len(Text1.Text) - 1))
End If
End If
If you try to fill out \\\\ you wil get an error.
- Status
Similar threads
