for next løkke 2 løkker efter hinanden :indtaste- og gengive tal

I den første løkke indtaster jeg nogle tal. Disse tal vil jeg gerne have genvist i løkke 2, men det "løkkes ikke." Hvad har jeg mon gjort forkert?

Option Explicit
Dim sum(3) As Single
Dim tal(3) As Single

Private Sub Command1_Click()
Dim taeller As Integer
Dim sumID As Integer
Dim talID As Integer

        For taeller = 1 To 3
            sum(sumID) = InputBox("Indtast tal nr. " & taeller)
            tal(talID) = sum(sumID)
            sum(sumID) = sum(sumID) + sum(sumID)
        Next
            For taeller = 1 To 3
                MsgBox "Det " & taeller & "tal var " & tal(talID)
            Next
       
    MsgBox "summen er i alt " & sum(sumID)
    MsgBox "gennemsnittet er " & sum(sumID) / 3
   
  End Sub