Thanks Robin.
I may have to resort to a Subroutine - but I thought a Function migh
be snazzier and produce tighter code with local variables and reusabl
variable names.
Robin Hammond Wrote:
Craig,
It's probably more sensible to use a sub. e.g.
Sub Test()
Dim strFirstName As String
Dim strLastName As String
SplitExample "Robin Hammond", strFirstName, strLastName
MsgBox "First Name: " & strFirstName
MsgBox "Last Name: " & strLastName
End Sub
Sub SplitExample(ByVal strInput As String, ByRef strFirstName A
String, _
ByRef strLastName As String)
strFirstName = Left(strInput, InStr(strInput, " ") - 1)
strLastName = Mid(strInput, InStr(strInput, " ") + 1)
End Sub
Robin Hammond
www.enhanceddatasystems.com
"aussie_craig" wrote i
message
...
Hi Again.
I had such a good response last time I thought I would ask you gurus
another one.
I have written some VBA code to manipulate some strings in a
spreadsheet.
It works well but is getting quite long, and I am beginning to reuse
parts of it. So I thought I would break one part into a function.
I would like to pass 1 string argument to my function, perform some
fairly intensive operations on the string and return with 2 string
arguments.
I think its possible to return with two argumnets - but the synta
has
thrown me.
I think it has something to do with dimensioning the Function name a
a
Variant or a 2 element array ?
Here's a rough example along the lines of what I want:
Sub Blah()
MyString = "123456"
AddressSplit (MyString)
End Sub
Function AddressSplit (TargetString)
AddressSplit(1) = "Test1"
AddressSplit(2) = "Test2"
End Function
How do I return the 2 arguments to the Main Subroutine so I can use
them ?
Thanks in Advance for any help.
--
aussie_craig
------------------------------------------------------------------------
aussie_craig's Profile:
http://www.excelforum.com/member.php...o&userid=15491
View this thread
http://www.excelforum.com/showthread...hreadid=271071
--
aussie_crai
-----------------------------------------------------------------------
aussie_craig's Profile:
http://www.excelforum.com/member.php...fo&userid=1549
View this thread:
http://www.excelforum.com/showthread.php?threadid=27107