Im Modul 1 definiert:
 
Public st1 As String
Public st2 As String
 
In der Form1 definiert
 
Private Sub cmdzusammen_Click()
    Dim a As String
    st1 = "geht "
    st2 = "nicht"
    a = fuegezusammen
     MsgBox (a)
End Sub
 
Im Modul1 die Funktion
 
Public Function Fuegezusammen() As String
    Fuegezusammen  = st1 & st2
End Sub