Simple UserForm TextBox Issue

[oldcitycat]

How do I carry theVname varaible from one sub to another?
The value thetextbox is avaiable within this sub but not If I try using it in the next sub

[FONT=Calibri]Public  Sub cbOk_Click()[/FONT]
[FONT=Calibri]Dim VName As String[/FONT]
[FONT=Calibri]VName =tbVesselName.Value[/FONT]
[FONT=Calibri]'MsgBox VName[/FONT]
[FONT=Calibri]Call ShowTXTBoxInfo[/FONT]
[FONT=Calibri]Unload Me[/FONT]
[FONT=Calibri]End Sub[/FONT]

[FONT=Calibri]Public Sub ShowTXTBoxVar()[/FONT]
[FONT=Calibri]MsgBox VName[/FONT]
[FONT=Calibri]End Sub[/FONT]

Thank you in advancefor any and all suggestion
OldCityCat

 

[dmt32]

Hi,
there are few ways you can do this one is to pass your variable as an argument to your procedure.

Public Sub cbOk_Click()
    Dim VName As String
    VName = tbVesselName.Value
    'MsgBox VName
    Call ShowTXTBoxVar(VName)
    Unload Me
End Sub

Public Sub ShowTXTBoxVar(ByVal VName As String)
    MsgBox VName
End Sub

Dave

 

[oldcitycat]

Thanks,
What If I have 3 variables I need to use in another procedure?

OldCityCat

 

[dmt32]

Thanks,
What If I have 3 variables I need to use in another procedure?

OldCityCat

Just declare three arguments in your procedure & Pass values to it.

Sub Procname(arg As String, arg2 As Integer, arg3 As Boolean)
End Sub


They can, as shown in this example, be different data types & if required made optional (you are not required to pass a value in calling procedure)

Dave

 

[oldcitycat]

Dave,
I was doing, just that when you responded.

Thank you for the prompt responses

OldCityCat