Pass variables from sub to another sub

[dakke]

Hi all,

So far I love tweaking it all and taking my first steps in Excell. I've been looking around, but I can't seem to find a simple solution.

What I would like to do now is to pass variables from one sub to another (all in the same module). The idea is simple. I have a sub, where I call 2 other subs. In the second, I have a simple string I want work with, in the third sub there is a calculation I need. Here's a short example of what I try to do in code (with presumable a lot of mistakes).:

Sub hallo()
k As Integer

k = 7

Call Message
Call calculations

MsgBox text & " - " & calc

End Sub


Sub calculations(k As Integer)

calc = k * 5

End Sub


Sub Message()
text As String

text = "It worked!"

End Sub

 

[mole999]

something like declare as private above the first module then you should be able to use it as a global value

 

[mrshl9898]

You need the variables declared above the code, you also don't need Call.

Dim k As Integer
Dim text As String
Dim calc As Long


Sub hallo()

k = 7

Message
calculations

MsgBox text & " - " & calc

End Sub


Sub calculations()

calc = k * 5

End Sub


Sub Message()

text = "It worked!"

End Sub

 

[Peter_SSs]

Another option would be to use a structure like this

Sub hallo()
  Dim k As Integer
  
  k = 7
  MsgBox Message & " - " & calc(k)
End Sub

Function calc(myInput As Integer) As Integer
  calc = myInput * 5
End Function

Function Message() As String
  Message = "It worked!"
End Function