[VB6] Controllo su più form

[new]

Ciao a tutti
sto realizzando un programma di gestione cliente ed ho fatto un modulo in cui mettere tutte le funzioni.

ho fatto una funzione
che controlla la correttezza dell'email..in maniera +ttosto grossolana magari..cmq...

Public Sub controlla(valore)
If InStr(1, valore, "@") > 0 Then
Chiocciola = 1
End If

If InStr(1, valore, ".") > 0 Then
punto = 1
End If

If punto <> 1 Or Chiocciola <> 1 Then
MsgBox ("Email Errata")
TxtEmail.Text = ""
TxtEmail.SetFocus
End If
End Sub

Mi da un errore su TxtEmail.text ??
se scrivo form1.txtEmail.text="" è giusto me lo prende; ma il problema mi nasce dal fatto che tale funzione la utilizzo su + form.....
come posso fare.?
spero di essere stato chiaro.

[DeBe99]

puoi passare il form alla sub

Public Sub controlla(valore, frm as form) 
If InStr(1, valore, "@") > 0 Then 
Chiocciola = 1 
End If 

If InStr(1, valore, ".") > 0 Then 
punto = 1 
End If 

If punto <> 1 Or Chiocciola <> 1 Then 
MsgBox ("Email Errata") 
frm.TxtEmail.Text = "" 
frm.TxtEmail.SetFocus 
End If 
End Sub

quando richiami la sub, passi oltre al valore anche il form.

controlla txtmail.text, me

[new]

Grazie