Private Sub Command1_Click()
Dim str, nstr, hstr As String
Dim i As Integer
str = "djDJdJDj"
For i = 1 To Len(str) - 1
hstr = Mid(str, i, 2)
If UCase(hstr) = "DJ" Then
nstr = nstr & "@" & hstr & "@"
i = i + 1
Else
MsgBox "no"
nstr = nstr & Mid(str, i, 1)
End If
Next i
MsgBox nstrEnd Sub |