VBA: Text Scripting VBA / modSample.basΒΆ

GitHub: https://github.com/tcsh/text-scripting-vba

download: modSample.bas

Attribute VB_Name = "modSample"

Option Explicit


Sub dispOS()
  Dim nameOS As String 
  nameOS = Application.OperatingSystem

  If nameOS Like "Windows *" Then
    ' Windows (32-bit) NT 6.01
    MsgBox "This is Windows OS. [" & nameOS & "]"

  ElseIf nameOS Like "Macintosh *" Then
    ' Macintosh (Intel) 10.8
    MsgBox "This is Mac OS X. [" & nameOS & "]"

  End If
End Sub


Sub dispVersion()
  MsgBox Application.Version
End Sub