Hvorfor får jeg det svar?

Jeg har leget lidt med en kode som kan oversætte 1200 til tidsformat 12:00. Og den virker ved alle tal, pånær netop 1200 - men hvorfor får den tildelt den mærkelige værdi 0,5 ved netop 1200??

Her er koden



Private Sub Worksheet_Change(ByVal Target As Range)
Dim indtast As String
Dim tid As String
Dim hvor As String

If Selection.Cells.Count > 1 Then
    MsgBox "Auto-tid virker måske ikke rigtigt" & vbNewLine & "hvis der ændres i flere celler af gangen", _
        vbInformation + vbOKOnly, "Information til bruger"
    Exit Sub
End If
If IsNumeric(Target) Then
    hvor = Target.Address
    If Mid(hvor, 3, 1) = "$" Then
    If Mid(hvor, 2, 1) = "C" Or Mid(hvor, 2, 1) = "B" Then

        If Len(Target.Value) > 4 Then
            Exit Sub
        End If



        indtast = Target.Value
        If indtast = "2400" Then
            Target.Value = "00:00"
            Target.NumberFormat = "hh:mm"
            Exit Sub
        End If

        If Right(indtast, 2) > 59 Then
            MsgBox "Der kan ikke være mere end 59 minutter" & vbNewLine & "på en time!", _
                vbInformation + vbOKOnly, "Information til bruger"
            ActiveCell.Offset(-1, 0).Activate
            Exit Sub
        End If
        If Len(indtast) = 4 Then
            If Left(indtast, 2) > 23 Then
                MsgBox "Der kan ikke være mere end 24 timer" & vbNewLine & "på et døgn!", _
                    vbInformation + vbOKOnly, "Information til bruger"
                ActiveCell.Offset(-1, 0).Activate
                Exit Sub
            End If
        End If

        If Len(Target.Value) = 4 Then Target.Value = Left(indtast, 2) + ":" + Right(indtast, 2)
        If Len(Target.Value) = 3 Then Target.Value = Left(indtast, 1) + ":" + Right(indtast, 2)
        If Len(Target.Value) = 2 Then Target.Value = "00:" + indtast
        If Len(Target.Value) = 1 Then Target.Value = "00:0" + indtast
        MsgBox "tallet: " & indtast

        Target.NumberFormat = "hh:mm"


    End If
    End If
Else
    Exit Sub
End If