• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 174
  • Last Modified:

Error in Function

With this function im getting an error

Public Function Get1Words(sInput As String) As String
    Dim sTmp() As String
   
    sTmp() = Split(sInput, " ", 2)
    sTmp(UBound(sTmp)) = vbNullString <<<sub script is out of range
    Get1Words = Join(sTmp, " ")
End Function


0
thenone
Asked:
thenone
  • 4
  • 3
2 Solutions
 
Mike TomlinsonMiddle School Assistant TeacherCommented:
It doesn't error for me...

Option Explicit

Private Sub Command1_Click()
    Dim source As String
   
    source = "the big fat cat ate fish"
   
    Dim dest As String
    dest = Get1Words(source)
   
    Debug.Print source
    Debug.Print dest
End Sub

Public Function Get1Words(sInput As String) As String
    Dim sTmp() As String
    sTmp() = Split(sInput, " ", 2)
    sTmp(UBound(sTmp)) = vbNullString
    Get1Words = Join(sTmp, " ")
End Function




Output:

the big fat cat ate fish
the
0
 
thenoneAuthor Commented:
Could it be that I am putting it in a module
0
 
Mike TomlinsonMiddle School Assistant TeacherCommented:
That wouldn't make any difference to this code...
0
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
thenoneAuthor Commented:
well thats weird I am getting an error sub script is out of range
0
 
Mike TomlinsonMiddle School Assistant TeacherCommented:
Create a new project and paste the code above...do you still get an error?
0
 
thenoneAuthor Commented:
no i don't that is really weird.
0
 
ptan218Commented:
Ensure that you are passing it some value to sInput. An empty string will give you a subscript out of range error.
0
 
thenoneAuthor Commented:
ok found the problem the input string was null.
0

Featured Post

Important Lessons on Recovering from Petya

In their most recent webinar, Skyport Systems explores ways to isolate and protect critical databases to keep the core of your company safe from harm.

  • 4
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now