Buen dia estimados. Ahora problemas con titulo de MsgBox

He de suponer que quieres que el "Good morning" salga como título y el "The time is:" como texto del mensaje.

Dim titulo As String
Dim Mensaje As String
Dim i As Integer
    Select Case time
        Case Is <= 0.5
            titulo = titulo + "Good morning !. Welcome to Pump Station Selector:"
       Case 0.5 To 0.75
            titulo = titulo + "Good afternoon !. Welcome to Pump Station Selector:"
       Case Else
            titulo = titulo + "Good night !. Welcome to Pump Station Selector:"
    End Select
    Mensaje = "The time is: " + time +vbCrLf
    ' La i es porque el msgbox devuelve un valor, no tiene ninguna funcion
    ' si quitas la i te dara un error
    i = MsgBox(Mensaje, , titulo)

Buen día Antares y gracias por la pronta respuesta.

Los títulos serán los que tienen el apostrofe en mi codigo 'PDWS

Los textos serán Good morning ! Welcome to the ...... Según cada caso.

La fecha y la hora no son importantes. Este código originalmente no es mio como no se mucho de VBA pense que se encontraba para que funcionaran los casos de mañana tarde o noche. Gracias

El error que dices que te pasa con los PDWS es que eso has de ponerlo en el msgbox, no con el texto del mensaje.

Sub Fecha()
         Dim Mensaje
     Select Case Time
       Case Is <= 0.5
         Mensaje = Mensaje & "Good morning !. Welcome to Pump Station Selector:"
       Case 0.5 To 0.75
         Mensaje = Mensaje & "Good afternoon !. Welcome to Pump Station Selector:"
       Case Else
         Mensaje = Mensaje & "Good night !. Welcome to Pump Station Selector:"
       End Select
       Mensaje = "The time is: " & Time & vbCrLf
       MsgBox Mensaje,,"PDWS"
End Sub

Antares. Pruebo el código tal y como lo escribiste y PDWS se convierte en título que es lo que se quiere.

Pero el texto del MsgBox debe ser mañana tarde o noche con la bienvenida y no el time.