Acceder al Puerto COM en VB6, con un codigo de VB Net

[TOLO68]

Hola a todo el foro!!!!!
Hacia mucho tiempo que no entraba por aqui   

Tengo el siguiente codigo en VB.Net
Necesito hacerlo en Qbasic o VB6 (sin el Control MSComm)
Es decir con la instruccion de....
Open COM "COM3:115200,N,8,1........" As #1
O con la API de Windows

Esta es una parte del codigo de VB.Net

............


Imports System.IO
Imports Microsoft.VisualBasic

Module Module1

    Dim WithEvents Serial1 As System.IO.Ports.SerialPort

    Public Function LeerPuerto(ByVal Puerto As String) As String

        Try

            Serial1 = New System.IO.Ports.SerialPort
            Serial1.PortName = Puerto
            Serial1.BaudRate = 115200
            Serial1.DataBits = 8
            Serial1.StopBits = IO.Ports.StopBits.One
            Serial1.Parity = IO.Ports.Parity.None
            Serial1.Open()
            Serial1.Write("065FAA0C33DA0341")

            Serial1.Close()
            Return Respuesta
        Catch
            Return "False"
        End Try
    End Function

    Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles Serial1.DataReceived
        Dim r, l As String
        Dim i As Integer


        Try
            r = Serial1.ReadExisting
            Select Case Paso
                Case 1
                    l = "010A0003041001210000"
                    Paso = 2
                    Serial1.Write(l)
                Case 2
                    .........
                Case 10
                    i = InStr(r, "[")
                    If i > 0 Then
                       
                        Paso = 0
                        r = Mid(r, i + 1,
                        Respuesta = r
                    End If
            End Select
        Catch ex As Exception
        End Try
    End Sub

End Module

............

Es posible convertirlo
Muchas gracias por adelantado.
Saludos!!!!