MIS Interview Series Q30 VBA UDF Functionbr br Function Valuewithhypen(x As String)br br findhypen = InStr(x, "-")br firstvalue = Left(x, findhypen - 1) + 0br secondvalue = Right(x, Len(x) - findhypen) + 0br For i = firstvalue To secondvaluebr br qq = qq & "," & ibr Next ibr Valuewithhypen = Right(qq, Len(qq) - 1)br br End Functionbr br Supporting file can be downloaded from below path.