[VB6] Esegui Stringa

[GudFella]

potresti richiamare una funzione
es:

Dim a As Integer

Private Sub Command1_Click()
    a = Calcola
    MsgBox a
End Sub

Private Function Calcola() as Integer
    Calcola = 10+50
End Function