Can anyone tell me why is this appening?

[KhallP]

Private Sub UserForm_Initialize()

Call CallTime_Msg
lb_hello.Caption = msg
lb_tec.Caption = Tec

End Sub



Sub CallTime_Msg()

Dim mHour As Integer
Dim msg As String

mHour = hour(Now)
If mHour < 12 Then
   msg = "Good Morning"
ElseIf mHour < 18 Then
   msg = "Good Afternoon"
Else
   msg = "Good Evening"
End If

End Sub

Error:

"Expected Array" (???)

 

[RoryA]

It would seem you have declared something called 'hour' somewhere. To confirm, change the code to use VBA.Hour - if it works, then my suspicion is correct.

 

[KhallP]

It would seem you have declared something called 'hour' somewhere. To confirm, change the code to use VBA.Hour - if it works, then my suspicion is correct.

Yeah, the error has gone, but doesn´t appear text in the label:

The message needs to appear there:

Private Sub UserForm_Initialize()

Call CallTime_Msg
lb_hello.Caption = msg
lb_tec.Caption = Tec

End Sub



Sub CallTime_Msg()

Dim mHour As Integer
Dim msg As String

mHour = VBA.hour(Now)
If mHour < 12 Then
   msg = "Good Morning"
ElseIf mHour < 18 Then
   msg = "Good Afternoon"
Else
   msg = "Good Evening"
End If

End Sub

 

[RoryA]

Please use code tags when posting code.

Your msg variable is declared inside the CallTime_Msg routine, so only exists in that routine - it has no value or meaning anywhere else. You need to move the Dim msg as string line to the top of the module above any routines, or change that sub into a function that returns the relevant caption, like this:

Private Sub UserForm_Initialize()

lb_hello.Caption = CallTime_Msg
lb_tec.Caption = Tec

End Sub



Function CallTime_Msg() as String

Dim mHour As Integer
Dim msg As String

mHour = VBA.hour(Now)
If mHour < 12 Then
   msg = "Good Morning"
ElseIf mHour < 18 Then
   msg = "Good Afternoon"
Else
   msg = "Good Evening"
End If
CallTime_Msg = msg
End Function

 

[KhallP]

Please use code tags when posting code.

Your msg variable is declared inside the CallTime_Msg routine, so only exists in that routine - it has no value or meaning anywhere else. You need to move the Dim msg as string line to the top of the module above any routines, or change that sub into a function that returns the relevant caption, like this:

Private Sub UserForm_Initialize()

lb_hello.Caption = CallTime_Msg
lb_tec.Caption = Tec

End Sub



Function CallTime_Msg() as String

Dim mHour As Integer
Dim msg As String

mHour = VBA.hour(Now)
If mHour < 12 Then
   msg = "Good Morning"
ElseIf mHour < 18 Then
   msg = "Good Afternoon"
Else
   msg = "Good Evening"
End If
CallTime_Msg = msg
End Function

Thank you very much man!!