Passing a variable from userform to module code - value being dropped or not seen

I am trying to print word documents from an excel userform which lists documents as radio buttons captions. When radio button selected I can see the document name as "SelectedOption" in a message box. When I then start a module code "automateword" the value of "SelectedOption" is dropped. How can I pass it on??

Private Sub CommandButton1_Click()
    Dim i As Integer

    For i = 0 To UserForm1.Controls.Count - 1
        If UserForm1.Controls(i) = True Then
            SelectedOption = UserForm1.Controls(i).Caption
            
            MsgBox SelectedOption
        End If
    Next
Call automateword

End Sub

Sub automateword()
    Set wordapp = CreateObject("word.Application")
   MsgBox "2" & SelectedOption
    wordapp.documents.Open "P:\CONTROLLED DOCUMENTS\" & SelectedOption
    'wordapp.documents.Open "P:\CONTROLLED DOCUMENTS\test.docx"
    wordapp.Visible = True
End Sub

Where have you declared SelectedOption?

By the way, have you considered reading the value(s) directly from the userform in the automateword sub?

Sub automateword()
Dim SelectedOption As String
Dim I As Long

    For I = 0 To UserForm1.Controls.Count - 1
        If UserForm1.Controls(I) = True Then
            SelectedOption = UserForm1.Controls(I).Caption
            Set wordapp = CreateObject("word.Application")
            MsgBox "2" & SelectedOption
            wordapp.documents.Open "P:\CONTROLLED DOCUMENTS\" & SelectedOption
            'wordapp.documents.Open "P:\CONTROLLED DOCUMENTS\test.docx"
            wordapp.Visible = True
        End If
    Next I

End Sub

Or set a Global variable.

Global myoption As String

Sub automateword()

    Set wordapp = CreateObject("word.Application")
   MsgBox "2" & myoption
    wordapp.documents.Open "P:\CONTROLLED DOCUMENTS\" & myoption
    'wordapp.documents.Open "P:\CONTROLLED DOCUMENTS\test.docx"
    wordapp.Visible = True
End Sub

Private Sub CommandButton1_Click()
    Dim i As Integer
    
    For i = 0 To UserForm1.Controls.Count - 1
        If UserForm1.Controls(i) = True Then
            SelectedOption = UserForm1.Controls(i).Caption
            myoption = SelectedOption
            'MsgBox SelectedOption
        End If
    Next
Call automateword

End Sub

You should simply pass the variable as an argument, rather than using a public variable or back referencing the userform

Private Sub CommandButton1_Click()
    Dim i As Integer

    For i = 0 To UserForm1.Controls.Count - 1
        If UserForm1.Controls(i) = True Then
            SelectedOption = UserForm1.Controls(i).Caption
            
            MsgBox SelectedOption
        End If
    Next
Call automateword(SelectedOption)

End Sub

Sub automateword(SelectedOption)
    Set wordapp = CreateObject("word.Application")
   MsgBox "2" & SelectedOption
    wordapp.documents.Open "P:\CONTROLLED DOCUMENTS\" & SelectedOption
    'wordapp.documents.Open "P:\CONTROLLED DOCUMENTS\test.docx"
    wordapp.Visible = True
End Sub

Nigelog, thanks for rep+.

Something like this.

    Dim WD As Word.Application

    On Error Resume Next
    Set WD = GetObject(, "Word.Application")
    On Error GoTo 0
    
    If WD Is Nothing Then
        Set WD = CreateObject("Word.Application")
    End If

GetObject checks wether Word is open, if not CreateObject takes over.

But I'd suggest you start a new thread if you want to continue on this subject.