Hola amigos, estoy haciendo una aplicacion en VBA desde la cual llamo a un ejecutable VB.NET que lee un archivo de texto, cambia los puntos decimales por

comas y posteriormente importa los campos separados por punto y coma a una tabla de una base de datos access ya existente.
mi problema es que es u npoco problematico llamar al ejecutable ademas que no quiero combinar tantos lenguajes asi que me gustaria saber si es posible y si

podriais ayudarme a traducir el codigo de vb.net a una funcion VBA.
muchas gracias por adelantado.


Imports System.Data.OleDb

Module puntos_por_comas

Sub Main()

Dim sr As New System.IO.StreamReader("..\texto.txt")
Dim origen As String = sr.ReadToEnd
sr.Close()

Dim destino As String = origen.Replace(".", ",")

Dim sw As New System.IO.StreamWriter("..\Destino.txt")
sw.Write(destino)
sw.Close()

Dim cnn As New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=..\;" & _
"Extended Properties='TEXT;HDR=Yes;FMT=Delimited(Wink'")

Using cnn
Try
Dim sql As String = _
"SELECT * INTO [Importados] " & _
"IN '..\base.mdb'" & _
"FROM ..\destino#txt"

Dim cnn2 As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=..\base.mdb")
Dim SchemaTable As DataTable
cnn2.Open()

SchemaTable = cnn2.GetOleDbSchemaTable(System.Data.OleDb.OleDbSc hemaGuid.Columns, _
New Object() {Nothing, Nothing, "Importados"})

If SchemaTable.Rows.Count <> 0 Then
'table exists
Dim sql2 As String = "DROP TABLE Importados"
Dim cmd2 As New OleDbCommand(sql2, cnn2)
cmd2.ExecuteNonQuery()
cnn2.Close()
End If

cnn.Open()

Dim cmd As New OleDbCommand(sql, cnn)
Dim regAfect As Int32 = cmd.ExecuteNonQuery

Finally
cnn = Nothing

End Try

End Using

End Sub

End Module