[RESOLVED] how can I display secs?

[tokneneng]

private sub GetElapsed()
CurrentElapse = DateDiff("n", Now, EndLog)

txtElapse.Text = Formatter(CurrentElapse) 
end sub

Public Function Formatter(b As Long) As String
  If (b Mod 60) < 30 Then
    Formatter = Str(FormatNumber(b / 60, 0)) & " hrs " & (b Mod 60) & " mins "
  Else
    Formatter = Str(FormatNumber(b / 60, 0) - 1) & " hrs " & (b Mod 60) & " mins"
  End If
End Function

how can I include secs to display?