CODE to formatting time and sending as parameter to SQL

formatinng time and sending as parameter to sql thic code does that

CODE:
Private Function FomatTime(ByVal strhours As String, ByVal strminutes As String, ByVal strseconds As String, ByVal strampm As String) As String

Dim formattedstr = ""
If (strhours.Length < 2) Then
strhours = "0" & strhours
End If

If (strminutes.Length < 2) Then
strminutes = "0" & strminutes
End If

If (strseconds.Length < 2) Then
strseconds = "0" & strseconds
End If


formattedstr = " " & strhours & ":" & strminutes & ":" & strseconds & " " & strampm

Return formattedstr

End Function