How to specify the access number to dial?

[sebex]

I am using the following code to dialup however I would like to be able to specify the number to dial programatically. Is this possible? I've searched msdn.

Private Sub DialUp()
        Dim DResult As Long
        DResult = InternetDial(0, "My Connection", DialUpOptions.INTERNET_DIAL_UNATTENDED, mlConnection, 0)
 
        If (DResult = ERROR_SUCCESS) Then
            Me.Text = "Dialup connected successfully"
        Else
            Me.Text = "Dialup unsuccessful"
        End If
    End Sub

Right now I have to specify the number manually via Windows XP Dial Up Networking. I would like to be able to specify the number at runtime.

Can it be changed within the registry?