Public Function CurrentDrive() As String
On Error GoTo CurrentDriveError
    CurrentDrive = Left(App.Path, 3)
Exit Function
CurrentDriveError:
    MsgBox "Error: " & Err.Number & _
    Chr(13) & Chr(10) & Err.Description
Exit Function
End Function