I have figured it out. The FieldInfo line has been changed to:
Dim myFields As FieldInfo() = moduleType.GetFields()
And I have added a loop to find the variables I am seeking:
For i As Short = 0 To myFields.Length - 1 Step 1
If myFields(i).Name = "MNApplDir" Then
MNApplDir = myFields(i).GetValue(mParentAssy)
End If
Next i
This works correctly.