嘿，作为VBA新手遇到这种字符串拆分的需求很正常，我来帮你一步步实现这个功能，顺便修正你代码里的小语法问题：

核心思路 #

首先我们需要先把单元格里的括号去掉，再用 Split 函数按冒号 : 把字符串拆分成数组，最后把数组里的元素分别赋值给你的变量就行，还要注意类型转换（比如把字符串转成数值类型）。

完整修正后的代码 #

Public Sub DeviceInfo(Optional ByVal rng As Range = Nothing)
    ' 先检查传入的单元格是否为空，如果没传就默认用选中的单元格
    If rng Is Nothing Then Set rng = Selection
    Dim cellContent As String
    cellContent = rng.Cells(1).Value
    ' 检查单元格内容不为空，并且符合(值1:值2:值3)的格式
    If Len(cellContent) > 0 Then
        ' 第一步：去掉前后的括号
        cellContent = Replace(Replace(cellContent, "(", ""), ")", "")
        ' 第二步：按冒号分割字符串，得到数组
        Dim valueArray As Variant
        valueArray = Split(cellContent, ":")
        ' 第三步：检查分割后的数组长度是否为3，避免出错
        If UBound(valueArray) = 2 Then
            ' 赋值给变量，这里根据需要转换类型（比如Double/Integer）
            Dim var1 As Double, var2 As Double, var3 As Integer
            var1 = CDbl(valueArray(0))
            var2 = CDbl(valueArray(1))
            var3 = CInt(valueArray(2))
            ' 这里可以加测试代码，验证变量是否正确赋值
            MsgBox "变量1：" & var1 & vbCrLf & "变量2：" & var2 & vbCrLf & "变量3：" & var3