Windows API VisualBasic Script

Private Declare Function GetTempPath Lib "kernel32.dll" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal Buffer As String) As Long
Public Sub Test()
  Dim Buffer As String * 255
  Call GetTempPath(255, Buffer)
  Debug.Print Buffer
End Sub