VB6 Code - Mendapatkan Directory All User Profile

Di bawah ini merupakan fungsi VB6 untuk mendapatkan directory All User Profile (AllUserProfile)

'Fungsi untuk mendapatkan directory All User Profile
Function GetAllUserPath() As String
    GetAllUserPath = Environ("AllUsersProfile")
End Function

'Contoh penggunaan fungsi untuk mendapatkan directory All User Profile
Private Sub Form_Load()
    MsgBox GetAllUserPath
End Sub