Opet greska u kodu :)

Code:
Private Sub cmdPosalji_Click()
Dim D As Variant, D1 As Variant, D2 As Variant, D3 As Variant
D1 = txtime.Text
D2 = txttacke.Text
D3 = txttext.Text
D = D1 + D2 + D3
txtchat.Text = D
txttext.Text = ""
If txtime.Text = "" Then
 MsgBox "Niste upisali ime"
ElseIf txtchat.Text = "Sta ima" And txtchat.Text = "Sta ima?" Then
   txtchater.Text = "Evo nista"
ElseIf txtchat.Text = "Kako si" And txtchat.Text = "Kako si?" Then
   txtchater.Text = "Dobro"
End If
End Sub

Code:

Private Sub cmdPosalji_Click()
    Dim D As Variant, D1 As Variant, D2 As Variant, D3 As Variant

    D1 = txtime.Text
    D2 = txttacke.Text
    D3 = txttext.Text

    D = D1 + D2 + D3

    txtchat.Text = D
    txttext.Text = ""

    If txtime.Text = "" Then
        MsgBox "Niste upisali ime"
    ElseIf txtchat.Text = "Sta ima" OR txtchat.Text = "Sta ima?" Then
        txtchater.Text = "Evo nista"
    ElseIf txtchat.Text = "Kako si" OR txtchat.Text = "Kako si?" Then
        txtchater.Text = "Dobro"
    End If

End Sub

Code:
Dim D As Variant, D1 As Variant, D2 As Variant, D3 As Variant

    D1 = txtime.Text        ovo je txtbox za ime
    D2 = txttacke.Text     ovo je txtbox za 2 tacke u kome su vec kao caption upisane dve tacke(:)
    D3 = txttext.Text       ovo je txtbox za poruku
 
    D = D1 + D2 + D3       ovo je radnja koja treba da se izvrsi i to mi radi znaci on mi izbaci npr:Sale kako si 

    txtchat.Text = D        ovo je txtbox u kome izlazi poruka npr:Sale: Kako si?
    txttext.Text = ""        ovo znaci kada se klikne na posalji da se txtbox za poruku ocisti kako bi bio spreman za sledecu 

    If txtime.Text = "" Then         ovo znaci da ako ne upisete ime
        MsgBox "Niste upisali ime"   program izbaci msgbox sa porukom
    ElseIf txtchat.Text = "Sta ima" OR txtchat.Text = "Sta ima?" Then    ovo bi trebalo da znaci ako korisnik ukuca sta ima
        txtchater.Text = "Evo nista"                                                   program treba da izbaci evo nista
    ElseIf txtchat.Text = "Kako si" OR txtchat.Text = "Kako si?" Then      ovo bi trebalo da znaci ako korisnik ukuca kako si
        txtchater.Text = "Dobro"                                                        program treba da izbaci evo nista 
    End If

Code:

Private Sub cmdPosalji_Click()
    Dim D As String, D1 As String, D2 As String, D3 As String

    D1 = txtime.Text
    D2 = txttacke.Text
    D3 = txttext.Text

    D = D1 + D2 + D3

    txtchat.Text = D
    txttext.Text = ""

    If D1 = "" Then
        MsgBox "Niste upisali ime"
    ElseIf D3 LIKE "*Sta ima*" Then
        txtchater.Text = "Evo nista"
    ElseIf D3 LIKE "*Kako si*" Then
        txtchater.Text = "Dobro"
    End If

End Sub