Code:
Private Function GetTimePlus(Time_ As String) As String

Dim Time_Split() As String
Dim Meridiam As String

Time_Split() = Split(Time_, ":")

Meridiam = Right(Time_, 2)

'Time_Split(1) = Format(Left(Time_Split(1), 2), "##")

Time_Split(1) = Time_Split(1) + 1

If Time_Split(1) >= 60 Then
Time_Split(0) = Time_Split(0) + 1
Time_Split(1) = "00"
If Time_Split(0) = 12 Then
If Meridiam = "AM" Then
Meridiam = "PM"
Else
Meridiam = "AM"
End If
End If
End If

If Time_Split(0) > 12 Then
Time_Split(0) = 1
End If

GetTimePlus = Format(Time_Split(0), "##") & ":" & Format(Time_Split(1), "##") & ":" & Format(Time_Split(2), "##") & " " & Meridiam

End Function
This keeps returning strings like "1:5:1 AM"

Local Time here is 1:06:00 AM

I'm trying to plus one minute onto the current time.