Hola estoy aprendiedo y haciendo un programa en VB. Como se puede solucionar este error?
La linea del erro esta en negrita.
Gracias.

Adjunto codigo:

Private Sub cambiar_Click()
Dim nueva, ide As String
Dim er As Long
nueva = nuevo.Text
nuevo.Text = "              "
er = DLLmodificar_id(nueva_id)
If er = 0 Then
pintar_matriz
End If

End Sub


Modulo:

Public Declare Function DLLmodificar_id _
Lib "tren.dll" _
(ByVal nueva_id As String, ByVal id As String) _
As Long

Dim er As Long
er= DLLcargar

No devuelve un entero 'er'?

Hola que tal?
A que es debido este error? Si, ya se que esperaba una funcion o una variable, pero en esencia, porque suele pasar este tipo de error?
El bucle esta bien escrito?
El error me lo marca con amarillo en Private Sub Form_Load() y en azul me subraya DLLdame_id.
Gracias.

Option Explicit

Private Sub Form_Load()
Dim n As Long
Dim k As Integer
Dim id As String
Dim t As String
Dim er As Long
Dim x As Long
x = 0
er = DLLcargar
If er = -1 Then
MsgBox "Error al cargar el fichero"
ElseIf er = -2 Then
MsgBox "Error al leer el id"
ElseIf er = -3 Then
MsgBox "error al leer el porcentaje de ocupacion"
ElseIf er = -4 Then
MsgBox "error al leer las cooredenadas"
ElseIf er = -5 Then
MsgBox "Las coordenadas exceden la capacidad de la matriz"
ElseIf er = -6 Then
MsgBox "Error al leer los datos personales"
Else
MsgBox "Fichero cargado correctamente"



id = "                    "
n = DLLdame_num_trenes
For k = 0 To n
    t = "                    "
    x = DLLdame_id(id, k)
    If x = 0 Then
        t = id
    End If
    List1.AddItem t
   
Next k
End Sub