Add hours to =Now

Hi there all,

I am creating a custom function that adds a set amount of hours to =Now depending on the "Priority Target".

Here it is:

Function Resolution(Priority_Target As String)
Select Case Priority_Target
    Case "P1"
        Resolution = Now 
    Case "P2"
        Resolution = Now 
    Case "P3"
    Case "P4"
    Case "S1"
    Case "S2"
    Case "S3"
    Case "S4"
    Case Else
        Resolution = "Unknown Priority Target"
End Select
    
End Function

Basically i can't work out how to add 2 hours, or 4 hours or 20 hours or 100 hours?


any idea's folks

thanks for reading my thread