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

Формулировка задачи:

Описать процедуру AddLeftDigit(D, K ), добавляющую к целому положительному числу K слева цифру D (D — входной параметр целого типа, лежащий в диапазоне 1–9, K — параметр целого типа, являющийся одновременно входным и выходным). С помощью этой процедуры последовательно добавить к данному числу K слева данные цифры D1 и D2, выводя результат каждого добавления. Помогите, у меня не получается...заранее благодарю

Решение задачи: «Описать процедуру AddLeftDigit(D, K )»

textual
                            Листинг программы 
                        

                            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
                        