Описать процедуру AddLeftDigit(D, K )

Option Explicit
 
Private Sub Command1_Click()
    Dim D1 As Integer, D2 As Integer, K As Long
    Cls
    
    K = CLng(InputBox("K = ", "", "9876543"))
    D1 = CInt(InputBox("D1 = ", "", "3"))
    Print "K = " & K
    Print "D1 = " & D1
    
    AddLeftDigit D1, K
    Print "K = " & K
    
    D2 = CInt(InputBox("D2 = ", "", "7"))
    Print "D2 = " & D2
    AddLeftDigit D2, K
    Print "K = " & K
    
End Sub
 
Private Sub AddLeftDigit(ByVal D As Integer, ByRef K As Long)
    K = CLng(CStr(D) & CStr(K))
End Sub

Sub main()
    Dim D1 As Integer, D2 As Integer, K As Long, s As String
     
    K = CLng(InputBox("K = ", "", "9876543"))
    D1 = CInt(InputBox("D1 = ", "", "3"))
    s = "K = " & K & vbCrLf
    s = s & "D1 = " & D1 & vbCrLf
    
    AddLeftDigit D1, K
    s = s & "K = " & K & vbCrLf
    MsgBox s
    
    D2 = CInt(InputBox("D2 = ", "", "7"))
    s = s & "D2 = " & D2 & vbCrLf
    AddLeftDigit D2, K
    s = s & "K = " & K
    MsgBox s
    
End Sub
 
Private Sub AddLeftDigit(ByVal D As Integer, ByRef K As Long)
    K = CLng(CStr(D) & CStr(K))
End Sub