A duvida é compreensível mas um pouco vaga, então o básico seria utilizar a Função REPLACE :

Sub Replace_DO()

    Dim sTexto As String
    
    sTexto = "Jaraguá do Sul"
    
    MsgBox Replace(sTexto, " do ", " ")
    
End Sub

No formulário pode-se ajustar para um dos Eventos de Saída do Combobox ou no Botão que irá enviar o dado para a planilha:

Private Sub CommandButton1_Click()

    Dim sTexto As String
    
    sTexto = ComboBox1.Text
    
    MsgBox Replace(sTexto, " do ", " ")
    
End Sub

Editei porque depois que caiu a ficha dos espaços separando os nomes, ehehehe

Desta forma podemos tambem utilizar a função "Substitute", ficando :

Private Sub CommandButton1_Click()
    
    Dim sTexto As String

    sTexto = ComboBox1.Text

    sTexto = WorksheetFunction.Substitute(sTexto, " do ", " ")
    sTexto = WorksheetFunction.Substitute(sTexto, " Do ", " ")
    sTexto = WorksheetFunction.Substitute(sTexto, " DO ", " ")
            
      
   ComboBox1.Text = sTexto
   
End Sub

[]s