Excel VBA listbox store value selected in variable use in another sub

I'm hoping someone can help me out with this, I haven't worked with userforms much in the past. Thanks in advance for your help.  I created a userform with a listbox, and I'm using code for the listbox in a private sub  within the userform.  However, I can't seem to pass the value from the selected item in the listbox to another sub routine in Module 3.  I tried declaring the variable as a public variable, but that didn't seem to work either.  I also tried to declare a public variable in the module, but that didn't work either.  What am I doing wrong?  I uploaded the file if that'll help.

Here's the code for the listbox:

Private Sub UserForm_Initialize()
    Dim rheadings As Range
    Dim cl As Range
    Set rheadings = Worksheets(9).Range("A4:AA4")
    For Each cl In rheadings
        Me.ListBox1.AddItem cl.Value
    Next cl
    
End Sub

Select allOpen in new window

Here's the code for the command button in the userform:

Public PartsDeptLBValue As String
Private Sub PartsDeptButton_Click()
    Dim Msg As String
    Dim i As Integer
    

'If ListBox1.ListIndex <> -1 Then
'MsgBox "Select something"
'Else
Msg = "You selected" & vbNewLine
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
        Msg = Msg & ListBox1.List(i) & vbNewLine
End If

    Next i
    MsgBox Msg

ListBox1.Value = PartsDeptLBValue
        
Unload PartsDeptUserForm

End Sub

Select allOpen in new window

Here's the code in Module 3 that I used to test if the variable was stored:

Sub GetPartsDept_UserForm_Value()
PartsDeptUserForm.Show

MsgBox PartsDeptLBValue
End Sub

Select allOpen in new window

TestBuySellTemplate.xlsm