Hi again guy's great got it working based on post 8, i can't thank you guy's enough , this now responds with the correct response
ie: Good morning Mr Duck or Good morning Donald depending on time of day(TOD) and your post 8 method adapted below, happy days
Code:
Dim TimeNow As String, TOD As String, FullName () As String, myClient as String
FullName = Split(Me.Client, " ")
Select Case UBound(FullName)
Case 0
myClient = FullName(0)
Case 1
myClient = FullName(1)
Case 2
myClient = FullName(0) & " " & FullName(2)
End Select
If TimeNow <= "11:59" Then
If TimeNow >= "00:01" Then
TOD = "Good morning" & " " & myClient
End If
End If
If TimeNow <= "16:59" Then
If TimeNow >= "12:01" Then
TOD = "Good afternoon" & " " & myClient
End If
End If
If TimeNow <= "23:59" Then
If TimeNow >= "17:01" Then
TOD = "Good evening" & " " & myClient
End If
End If