save format in time AMPM

[Geminite]

Beste helpers,

Ik heb een userform gemaakt waar ze in de textbox genaamd KolomB een tijd invullen als bv 1500.

Welnu wil ik door middel van format de tijdaanpassen naar AMPM, helaas voor mij neemt hij de tijd niet over. Ik heb de celleigenschappen aangepast naad datum-tijd AMPM.

Sub opslaanik()
          KolomB = Format(Itemtoevoegen.KolomB.Value, "hh:mm:ss AMPM")
'waar gaan we het opslaan
        MyRange.Range("A" & legeregel) = KolomA + " " + KolomB
End Sub

Kan iemand mij opweg helpen ?

Op voorhand bedankt

[EDIT] 15:00 werkt wel, maar 1500 is mijn utopia

 

[Warme bakkertje]

Private Sub KolomB_AfterUpdate()
KolomB.Value = IIf(Int(KolomB.Value / 100) < 0.1, "00:" & KolomB.Value, _
        Int(KolomB.Value / 100) & ":" & Right(KolomB.Value, 2))
End Sub

Plaats deze code in je userform Itemtoevoegen

 

[Geminite]

Afterupdate statement tuurlijk..

Bedankt voor de hulp.