[VB6] Verifica valore Euro/lire in TextBox

[LMondi]

Ho risolto in questo modo:

If FrmTariffa.TxtControv.Text <> "" Then
        If InStr(1, FrmTariffa.TxtControv.Text, ",") Then
            MsgBox "Il valore della controversia è espresso in Euro.", vbInformation + vbOKOnly, "Computo della tariffa"
            Else
            MsgBox "Il valore della controversia è stato espresso in Lit. Si" & Chr(13) _
            & "procede alla conversione in Euro (cambio 1.936,27).", vbInformation + vbOKOnly, "Computo della tariffa"
        End If
 End If