Kod:
Dim sonuc As String
Dim nerde As Integer
Dim oncesi As String
nerde = InStr(1, Metin0, "+", vbTextCompare) ' ilk + nın nerede kaçıncı sırada olduğunu bulalım
oncesi = Left(Metin0, nerde) ' İlk + ya kadar olan yazıları/bölümü oncesi değişkenine atayalım
sonuc = Replace(Metin0, "+", "-", nerde + 1, 1, vbTextCompare) ' Metin kutusunda ilk + nın pozisyonundan sonraki + değiştirelim.
MsgBox oncesi & sonuc ' iki değişkeni birleştirerek tam metni alalım