VB6 String hilfe :/

Code:

Private Sub sckIRC_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String, arrData() As String, i As Long
    Dim arrWords() As String, arrParms() As String
sckIRC.GetData strData, vbString
    arrData = Split(strData, vbCrLf)
    For i = 0 To UBound(arrData) - 1
        arrWords = Split(arrData(i), " ")
        arrParms() = Split(arrData(i), ":")
        Select Case UCase$(arrWords(1))
Case "PRIVMSG"
  Text1.SelText = strData & vbCrLf

Ja Die strings die bei text1 kommen sind etc::"Username!~username2@UserIP PRIVMSG #room_Name :hier ist der text der geschrieben wurde"

Ich will das bei dem text !~ und #room_name oder PRIVMSG das l�schen was da drin ist auch !~ und Prıvmsg.
Und noch 2.frage wals der user "�,�,ı,�,ş,ğ," oder so special characters schreibt komt es anders in text1 wie kan ich das machen ? etc: � komt als "ün"

Wie kan ich das machen ? ist vb6.
Danke f�r hilfe jetztschon.

English:
Hi go up you can see the code there the packets that come in text1 that are example:"Username!~username2@UserIP PRIVMSG #room_Name :the text that the user write" i will delete the text beetween !~ and #room name or !~ between PRIVMSG how can i do it ? i hope i get that in text1 = "Username : the text that user write".

and 1 question more when the user write special characers like: "�,�,ı,�,ş,ğ," then in text1 the characters are not "�,�,ı,�,ş,ğ," some other thinks that i cannot understand how can i fix it and that it show the real characters ?

Thanks in advanced for help.