I ended up finding something online and modifying it to pull the OS Version. Thank you again for your help.
Code:
Private Sub cmdCheckStatus_Click() Dim strComputer As String
Dim objWMIService As Object
Dim colItems As Object
Dim objItem As Object
strComputer = Me.txtMachine.Value
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery( _
"Select * from Win32_OperatingSystem", , 48)
For Each objItem In colItems
CompName = Nz(objItem.Name, 0)
Next
PipePosition = InStr(1, CompName, "|")
CompName = Left(CompName, PipePosition - 1)
Me.txtCheckStatus.Value = CompName
Set objItem = Nothing
Set colItems = Nothing
Set objWMIService = Nothing
End Sub