[RESOLVED] Remove double String from a String

[Code Doc]

This does it. Add a command button to a form and then click on it after adding this code:

Private Sub Command1_Click()
Dim Str1 As String, Str2 As String
Str1 = "steve.K=T:qbe.K=T:qbe.K=T:qbe.K=T:"
Str2 = "987654321_qn?K.X1_qn?K.X1_qn?K.X1_"
Str1 = Left$(Str1, InStr(Str1, ".") - 1)
Str2 = Left$(Str2, InStr(Str2, "_") - 1)
MsgBox Str1 & vbCrLf & Str2
End Sub