Select Case Screen.ActiveControl.Name
                 Case "Text2"
                       MsgBox "Ovde prva funkcija"
                 Case "Text3"
                       MsgBox "Ovde vtora funkcija"
                 Case "Text4"
                       MsgBox "Ovde treta funkcija"
                 Case Else
                       MsgBox "Ovde nema funkcija"
           End Select