VB6 Code - Fungsi Untuk Mendapatkan Directory Windows

Di bawah ini merupakan fungsi VB6 untuk mendapatkan directory windows tanpa terpengaruh oleh drive tempat Windows berada mis. C:\ D:\ dan seterusnya:

'Fungsi untuk mendapatkan directory windows
Function GetWinPath() As String
   GetWinPath = Environ("WinDir")
End Function

'Contoh penggunaan fungsi untuk mendapatkan directory windows
Private Sub Form_Load()
   MsgBox GetWinPath
   'Maka akan ditampilkan C:\Windows jika Anda menginstall windows pada _
   drive C:\ atau D:\Windows jika Anda menginstall windows pada drive D:\ _
   dan seterusnya.
End Sub

Bagaimana dengan menggunakan fungsi API? bukankah lebih cepat? ehm... pertanyaan yang perlu dipertimbangkan, terutama jika kita menggunakan komputer dengan kecepatan processor di bawah Pentium I semisal DX 386.