Imports System
Public Class RemoveTheLastOccurrenceOfAWordFromAString_VB_NET
Public Shared Function removeLastOccurrenceOfAWordFromAString(ByVal str As String, ByVal word As String) As String
Dim pos As Integer = str.LastIndexOf(word, StringComparison.Ordinal)
If pos <> -1 Then
str = str.Substring(0, pos) & str.Substring(pos + word.Length)
End If
Return str
End Function
Public Shared Sub Main(ByVal args As String())
Dim str As String = "vb c# c python vb c++ java vb php rust"
Dim word As String = "vb"
str = removeLastOccurrenceOfAWordFromAString(str, word)
Console.WriteLine(str)
End Sub
End Class
' run:
'
' vb c# c python vb c++ java php rust
'
