Autodial med 0 foran

Jeg har følgende kode:

Private Sub Telefon_DblClick(Cancel As Integer)
On Error GoTo Err_ringop_Click

 

    Dim stDialStr As String
    Dim PrevCtl As Control
    Const ERR_OBJNOTEXIST = 2467
    Const ERR_OBJNOTSET = 91
    Const ERR_CANTMOVE = 2483


Set PrevCtl = Me.Telefon
    'Set PrevCtl = Screen.PreviousControl
 
   
   
    If TypeOf PrevCtl Is TextBox Then
      stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
    ElseIf TypeOf PrevCtl Is ListBox Then
      stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
    ElseIf TypeOf PrevCtl Is ComboBox Then
      stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
    Else
      stDialStr = ""
    End If
   
    Application.Run "utility.wlib_AutoDial", stDialStr

Exit_ringop_Click:
    Exit Sub

Err_ringop_Click:
    If (Err = ERR_OBJNOTEXIST) Or (Err = ERR_OBJNOTSET) Or (Err = ERR_CANTMOVE) Then
      Resume Next
    End If
    MsgBox Err.Description
    Resume Exit_ringop_Click
End Sub

Den er (tydeligvis)dannet ud fra Access egen wizard.
Det virker, men jeg vil gerne have sat et nul foran alle telefonnumre der ringes op til.
hvordan er det lige det skal skrives?