I have 2 approaches:
1. Use conditional if statements (#If). The following is an example of what I know is supported:
#If Mac Then
'. Place exclusively Mac statements here.
#ElseIf Win32 Then
'. Place exclusively 32-bit Windows statements here.
#Else
'. Place other platform statements here.
#End If
2. Use SysInfo control (SysInfo.ocx). Example:
Dim MsgEnd As String
Select Case sysDetectOS.OSPlatform
Case 0
MsgEnd = "Unidentified"
Case 1
MsgEnd = "Windows 95, ver. "& _
CStr(sysDetectOS.OSVersion) & "(" & _
CStr(sysDetectOS.OSBuild) & "

"
Case 2
MsgEnd = "Windows NT, ver. " & _
CStr(sysDetectOS.OSVersion) & "(" & _
CStr(sysDetectOS.OSBuild) & "

"
End Select
MsgBox "System: " & MsgEnd
Note: sysDetectOS referenced to a SysInfo object.