看我

Dim m As String * 128
Dim n As String * 128
GetPrivateProfileString "PARAM", "ID", "", m, 128, "sea.ini"
   i = Mid(m, 2, 4)
   Label1.Caption = i
GetPrivateProfileString "PARAM", "TYPE", "", n, 128, "sea.ini"
  j = Mid(n, 1, 8)
  k = Replace(j, "????????", 52 & i)
  l = WritePrivateProfileString("PARAM", "TYPE", k, "sea.ini")
End Sub

我想把k的值写入INI,但提示类型不匹配,为什么呀,数据哪里不对

补充：VB ,  基础类