сообщение об ошибке ByRef типа несоответствия

Question

здесь код

Dim Comp_Str, Comp_Val As String 
Call Populate(Comp_Str, Comp_Val) 

Sub Populate(Str As String, Tpry_Str As String) 

Это бросает ошибка ByRef типа Аргумент несовпадение

Я не в состоянии найти то, что проблема

Его String Все путь

Answer 1

Объявлять типы для каждой переменной. Если вы опускаете один, то по умолчанию этот тип считается вариантом.

Sub Test() 
    Dim Comp_Str As String, Comp_Val As String 
    Call Populate(Comp_Str, Comp_Val) 
End Sub 

Sub Populate(Str As String, Tpry_Str As String) 
    ' ... 
End Sub