funcion Now()

[Monimo]

que tal actualemente cuando utilizo esta funcion para saber solo la hora hago uso del manejo d estrings recorto solo lo que yo kiero y eso

Código:

Function hora()
        ttoday = Now()
        startPos = 10
        charCount = 6
        Dim cad As String = (Mid$(ttoday, startPos, charCount))
        Return cad
    End Function

hay una forma mas facil de solo depslegar la hora? porke me encnetro con el problema de no saber si es am o pm y ademas si son por ejemplo las 12:30 sale perfecto el numerito pero si son las 8 am por ejemplo sale esto : 8:20:

MM BUENO YA LO CAMBIE por esto: Dim cad As String = Format(Now, "hh:mm AM/PM") perooo

me devuelve 10:48 A6 /P6, com ole puedo hacer alguna idea? que me diga si es amo pm no que me imprima los dos