Remove "s" from end of string?

[unba1300]

Sorry, this will be an easy answer for some, but I'm still learning.
I need to check if a string variable ends with "s", and if it does, remove the "s". I have the check working with EndsWith, but not the replacement.
Tried this:

varFood(0) = varFoods(0).Replace(LastIndexOf("s"),"")
'and
varFood(0) = varFoods(0).SubString2(0, LastIndexOf("s"))

Thanks.

 

[NJDude]

You have to use EndsWith

If varFoods(0).EndsWith("s") Then ...

 

[unba1300]

Yes, I have that part working, but not what follows 'Then'.

 

[NJDude]

Ok, like this then:

Dim MyString As String
            
MyString = "Apples"
            
If MyString.EndsWith("s") Then
      
   MyString = MyString.SubString2(0, MyString.Length -1)
            
End If
            
Msgbox(MyString, "")