Gostaria de Retirar o "-" da string Cep e não consigo. Sera que alguem pode me ajudar. Já usei tmb Replace.

O código que estou utilizando é o seguinte

Private Sub Command2_Click()
Dim bcep As String 'variavel do cep que esta sendo jogado
Dim bcep2 As String
Dim vsql As String
Dim Cep_Rua As String

vsql = "SELECT CEP_RUA FROM RUA" 'abre o cep da tabela rua
          Set vrs = cn.Execute(vsql) 'setando a variavel para a execuxao dos dados do banco

Do While vrs.EOF = False 'enquato a variavel for ate o final do arquivo
          bcep = vrs("Cep_Rua") ' variavel que esta exibindo o campo na cep da rua na tela
         
               cn.Execute ("UPDATE rua set Cep_Rua = mid(Cep_Rua,1,5) & mid(Cep_Rua,7,3)")

   Text2.Text = bcep2
                     
                         
        MsgBox bcep
        vrs.MoveNext 'para pular os registros
              
        Loop
       
End Sub