Convert VB to VBA

[Jo15765]

How would this procedure be converted to VBA?

Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" _
    (ByVal hwndParent As Long, ByVal fRequest As Long, _
    ByVal lpszDriver As String, ByVal lpszAttributes As String) As Long
    Public DB As ADODB.Connection
    Public connString As String
 
Public Sub Connect()
    Call Create
    
    connString = "DSN=VRRS;"
    Set DB = New ADODB.Connection
    DB.Open connString
End Sub
 
Private Function CreateAccessDSN(DSNName As String, DatabaseFullPath As String) As Boolean
    Dim sAttributes As String
    sAttributes = "DSN=" & DSNName & Chr(0)
    sAttributes = sAttributes & "DBQ=" & DatabaseFullPath & Chr(0)
    CreateAccessDSN = CreateDSN("Microsoft Access Driver (*.mdb)", sAttributes)
End Function
 
Private Function CreateDSN(Driver As String, Attributes As String) As Boolean
    CreateDSN = SQLConfigDataSource(0&, 1, Driver, Attributes)
End Function
 
Private Sub Create()
    Dim blnRetVal As Boolean
    blnRetVal = CreateAccessDSN("VRRS", "C:\VRRS\VRRS.mdb")
End Sub

What I am trying to do is use VBA to set up a DSN on my PC