Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim c As String
Dim D As String
Dim e As String
 
 
a = Text1
b = Text2
c = Text3
D = Option1
e = Combo1
Text4 = "G100" & "A" & a & "B" & b & "C" & c & "E" & e & "D" & D
 
End Sub

Gru?
Marco